home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 2
/
PC World Interactive 2 - Eylül 1997.iso
/
shar
/
graf
/
il7try.exe
/
IL7TRY
/
ARCHIVE.Z
/
ProcSets.aip
/
TEXT
/
772
< prev
next >
Wrap
Text File
|
1997-05-07
|
770b
|
29 lines
/BuildChar {
/_bitlobyte exch def
/_bitfont exch def
_bitfont /FontScript get 25 eq
_bithibyte 0 eq
_bitlobyte 161 ge _bitlobyte 254 le and
and and
{
/_bithibyte _bitlobyte def
0 0 setcharwidth
}
{
_bithibyte 256 mul _bitlobyte add
16 4 string cvrs dup length (K) dup length
dup 4 -1 roll add string /_bitkey exch def
exch _bitkey copy pop _bitkey exch 3 -1 roll putinterval
% _lineorientation 1 eq _bithibyte 0 ne and {
% 0 _bitfont /FontAscent get neg translate
% } if
_bitfont /CharMetrics get _bitkey cvn get 0 setcharwidth
_bitfont /CharStrings get _bitkey cvn get exec
% _lineorientation 1 eq _bithibyte 0 ne and {
% 0 _bitfont /FontAscent get translate
% } if
/_bithibyte 0 def
} ifelse
} bind def